77问答网
所有问题
当前搜索:
vba byref
VBA
把Excel的内容复制到Word的代码?
答:
正好前几天在研究从EXCEL数据导出到WORD中。源代玛整理如下,有一些路径,文件名等需要变更信息的相信你能看明白(已用粗体标识)。提供的只是一个初学者的思路,该代码还有很大可优化空间,因为生成WORD文件的时候估计每个要用3-5秒时间,批量生成时就很烦(批量生成就是用循环,文件名称可以使用时间戳 ...
怎么
vba
调用带参数SUB,请赐教。
答:
和调用没参数的过程差不多,只是多加上参数值而已。你这里要调用的是工作簿事件过程,参数为逻辑型,所以只能用逻辑值:True 或 False,但从这过程的代码看,参数不管是什么,结果都一样。
Excel
VBA
Variant 赋值 [如何把一个已知的Variant元素赋给另一个已...
答:
Sub test()Dim arr1 As Range, arr As RangeSet arr1 = [a1:e1]set_Equal arr1, arrMsgBox arr(1, 1)End SubPublic Sub set_Equal(Resource As Range,
ByRef
Destinition As Range) '实际中用的Variant是1×5的单元格阵列 Set Destinition = ResourceEnd Sub ...
excel
vba
里 togglebutton 如何设置多个按钮按下一个其他全部弹起...
答:
IRibbonControl, Pressed As Boolean) strCurrentReport = Control.Id Worksheets(strCurrentReport).Activate moRibbon.InvalidateEnd SubSub button_getPressed(ByVal Control As IRibbonControl,
ByRef
ReturnedVal) ReturnedVal = (strCurrentReport = Control.Id)End Sub 运行效果:
VBA
程序运行时 出现 事实错误 424 要求对象 是怎么回事
答:
代码如下:Sub 代码表存为数组(
ByRef
d As Dictionary) Dim data As New 执行 Dim sql As String Dim arr, y sql = "Select 定额名称,单价,计价单位,汇报单位,换算系数 from [定额计件$] " arr = data.筛选结果(sql) If d Is Nothing Then Set d = New Dictionary '如果d...
如何在Excel中使用
VBA
编程筛选出每位学生不合格的科目,并且从低向高...
答:
Option ExplicitSub Sfilter() Dim arr As Variant Dim brr() As Variant Dim dat As Worksheet, rs As Worksheet Dim i As Integer, j As Integer Dim k As Integer, ln As Integer On Error Resume Next Set dat = Sheets("data") '这里把字符DATA修改成学生成绩原...
excel牛人来探讨一下用
VBA
实现网络通信的问题!
答:
excel用
VBA
实现网络通信的问题的步骤:1、打开 Microsoft Office Excel 2007,点击 “开始” ->“Excel 选项”。2、在弹出的对话框中,选择“常规”选项卡,并在右侧点选“在功能区显示‘开发工具’选项卡”,并单击“确定"。3、在单元格A1中输入“弧度”,单元格B1中输入“角度”,单元格A2中输入...
VBA
中子函数如何返回二维数组的值?
答:
函数返回值为数组不太好弄,你可以定义成一个过程,chonggou(...),arr3你可以作为过程参数返回,在括号里定义,不要放在过程中定义。
vba
sic怎么用
答:
Declare Function HtmlHelp
ByRef
Arg Lib "hhctrl.ocx" Alias "HtmlHelpA"(ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByRef dwData As Any) As Long Type HH_IDPAIR dwControlId As Long dwTopicId As Long End Type 'This array should contain the ...
excel
vba
Application.Run 参数传址引用
答:
Sub btnRun_Click()Dim ClArray(1 To 10) As String, kk%kk = 144'Application.Run "'" & ThisWorkbook.Path & "\" & "b.xls'!sheet1.Macro1"Application.Run "Book1.xls!SearchAllFile", ClArray, kk'Application.Run "SearchAllFile", ClArray(), kkFor i = 1 To 10Debug.Print...
<上一页
1
2
3
4
5
下一页
其他人还搜